double complex function cerfc(z)
    implicit none
    double complex z, cerf

    cerfc = 1 - cerf(z)

end function cerfc
